home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / vol6n13.arc / PAD.BAS < prev    next >
BASIC Source File  |  1987-04-29  |  15KB  |  212 lines
  1. 10     DIM SUMS(17):FOR I=1 TO 10:KEY I,"":NEXT I:CLS:D=330:PRINT "Checking..."
  2. 20     FOR I=1 TO 17:READ SUMS(I):NEXT I
  3. 30     FOR I=1 TO 17:SUM=0:FOR N=1 TO 80:READ BYTE.%:SUM=SUM+BYTE.%:NEXT N
  4. 40     IF SUM<>SUMS(I) THEN PRINT "ERROR BETWEEN LINES",D+100*(I-1),D+100*I:END
  5. 50     NEXT I:RESTORE 330:CLS
  6. 60     LOCATE 10,15:PRINT" Type the key to turn the pad on and off."
  7. 70     LOCATE 11,15:PRINT"  (Use another key if there is no response)."
  8. 80     DEF SEG = &H40
  9. 90     FKEY$=INKEY$:IF FKEY$="" GOTO 90
  10. 100    LOCATE 10,15:PRINT SPC(50):LOCATE 11,15:PRINT SPC(50)
  11. 110    TAIL=PEEK(26):TAIL=TAIL-2:IF TAIL < 30 THEN TAIL = 60 
  12. 120    CODE1=PEEK(TAIL):CODE2=PEEK(TAIL+1):CLS:LOCATE 10,12
  13. 130    PRINT"An attribute of 30 is recommended on color screens.":LOCATE 11,10
  14. 140    INPUT"What is the pad attribute(<cr>=default, monochrome screen)";ATTR
  15. 150    IF ATTR = 0 THEN ATTR = 112
  16. 160    CLS:OPEN "PAD.COM" AS # 1 LEN = 1        'Open Pad.Com
  17. 170    LOCATE 2,30:PRINT"   Creating PAD.COM    "
  18. 180    FIELD #1,1 AS BYTE.$:FOR N = 1 TO 1432
  19. 190    READ BYTE.%
  20. 200    IF BYTE.% <> -1 THEN GOTO 220
  21. 210    LSET BYTE.$=CHR$(ATTR):PUT #1:GOTO 270
  22. 220    IF BYTE.% <> -2 THEN GOTO 240
  23. 230    LSET BYTE.$=CHR$(CODE1):PUT #1:GOTO 270
  24. 240    IF BYTE.% <> -3 THEN GOTO 260
  25. 250    LSET BYTE.$=CHR$(CODE2):PUT #1:GOTO 270
  26. 260    LSET BYTE.$ = CHR$(BYTE.%):PUT #1
  27. 270    NEXT N:CLOSE #1  
  28. 280    LOCATE 19,15:PRINT SPC(10) "     PAD.COM Created.                 "
  29. 290    END
  30. 300    DATA   5775,   3823,   6639,   6343,   6480,   7271,   7007,   7275
  31. 310    DATA   6215,   7051,   7746,   7272,   7126,   8255,   7965,   7692
  32. 320    DATA   6879
  33. 330    DATA    233,    249,      4,     67,    111,    112,    121,    114
  34. 340    DATA    105,    103,    104,    116,     32,     49,     57,     56
  35. 350    DATA     55,     32,     90,    105,    102,    102,     45,     68
  36. 360    DATA     97,    118,    105,    115,     32,     80,    117,     98
  37. 370    DATA    108,    105,    115,    104,    105,    110,    103,     32
  38. 380    DATA     67,    111,     46,      0,      0,      0,      0,      1
  39. 390    DATA      0,      0,      1,      0,      1,     16,     83,     65
  40. 400    DATA     86,     69,     13,    115,     97,    118,    101,     13
  41. 410    DATA     83,     97,    118,    101,     13,     10,     36,     13
  42. 420    DATA     10,     80,     65,     68,     46,     84,     88,     84
  43. 430    DATA     32,     99,    114,    101,     97,    116,    101,    100
  44. 440    DATA     46,     13,     10,     36,      0,      0,     80,     65
  45. 450    DATA     68,     46,     84,     88,     84,      0,      0,      0
  46. 460    DATA      0,      0,     88,      2,    176,      4,      8,      7
  47. 470    DATA     96,      9,      0,      0,      0,      0,     87,      2
  48. 480    DATA      0,      0,      0,      0,     -1,      0,      0,      0
  49. 490    DATA      0,      0,      0,      0,      0,      0,      0,      0
  50. 500    DATA      0,     80,     83,     81,     82,     87,     86,     30
  51. 510    DATA      6,    156,     46,    255,     30,    133,      1,    187
  52. 520    DATA     64,      0,    142,    219,    139,     30,     28,      0
  53. 530    DATA     59,     30,     26,      0,    116,     67,    131,    235
  54. 540    DATA      2,    129,    251,     30,      0,    115,      6,    187
  55. 550    DATA     62,      0,    131,    235,      2,    139,     23,    129
  56. 560    DATA    250,     -2,     -3,    117,     80,    137,     30,     28
  57. 570    DATA      0,     46,    247,     22,     92,      1,     46,    131
  58. 580    DATA     62,     92,      1,      0,    117,     30,    141,     22
  59. 590    DATA    252,      5,     46,    137,     22,    114,      1,     46
  60. 600    DATA    129,      6,    114,      1,    184,     11,    141,      6
  61. 610    DATA     54,      4,     46,    163,    129,      1,    232,    155
  62. 620    DATA      2,    233,    192,      1,    141,     22,    252,      5
  63. 630    DATA     46,    137,     22,    114,      1,     46,    129,      6
  64. 640    DATA    114,      1,    184,     11,    141,      6,     11,      4
  65. 650    DATA     46,    163,    129,      1,    232,    125,      2,    232
  66. 660    DATA    171,      1,    233,    159,      1,     46,    247,      6
  67. 670    DATA     92,      1,      1,      0,    116,    211,    137,     30
  68. 680    DATA     28,      0,    129,    250,      0,     83,    117,     40
  69. 690    DATA     30,     14,     31,     46,    139,     30,    118,      1
  70. 700    DATA     75,    198,      7,     32,     75,     46,     59,     30
  71. 710    DATA    116,      1,    117,    245,    198,      7,     95,     46
  72. 720    DATA    139,     22,    116,      1,     46,    137,     22,    102
  73. 730    DATA      1,     31,    232,    112,      1,    233,    100,      1
  74. 740    DATA    129,    250,      8,     14,    117,     41,     30,     14
  75. 750    DATA     31,     46,    139,     30,    102,      1,     46,     59
  76. 760    DATA     30,    116,      1,    126,     19,    198,     71,    255
  77. 770    DATA     95,     46,    255,     14,    102,      1,     46,     59
  78. 780    DATA     30,    118,      1,    116,      3,    198,      7,     32
  79. 790    DATA     31,    232,     65,      1,    233,     53,      1,    129
  80. 800    DATA    250,     13,     28,    117,     13,     30,     14,     31
  81. 810    DATA    232,     74,      1,     31,    232,     46,      1,    233
  82. 820    DATA     34,      1,    129,    250,      0,     73,    117,     78
  83. 830    DATA     46,    131,     62,    120,      1,      0,    117,      3
  84. 840    DATA    233,     17,      1,     46,    139,     30,    120,      1
  85. 850    DATA      3,    219,     46,    139,     14,    102,      1,     46
  86. 860    DATA    137,    143,    104,      1,     46,    255,     14,    120
  87. 870    DATA      1,    131,    235,      2,     46,    139,    143,    104
  88. 880    DATA      1,     46,    137,     14,    102,      1,     46,    161
  89. 890    DATA    120,      1,    187,     88,      2,    247,    227,    141
  90. 900    DATA     22,    252,      5,      3,    194,     46,    163,    116
  91. 910    DATA      1,      5,     87,      2,     46,    163,    118,      1
  92. 920    DATA    232,    218,      0,    233,    206,      0,    129,    250
  93. 930    DATA      0,     81,    117,     78,     46,    131,     62,    120
  94. 940    DATA      1,      4,    117,      3,    233,    189,      0,     46
  95. 950    DATA    139,     30,    120,      1,      3,    219,     46,    139
  96. 960    DATA     14,    102,      1,     46,    137,    143,    104,      1
  97. 970    DATA     46,    255,      6,    120,      1,    131,    195,      2
  98. 980    DATA     46,    139,    143,    104,      1,     46,    137,     14
  99. 990    DATA    102,      1,     46,    161,    120,      1,    187,     88
  100. 1000   DATA      2,    247,    227,    141,     22,    252,      5,      3
  101. 1010   DATA    194,     46,    163,    116,      1,      5,     87,      2
  102. 1020   DATA     46,    163,    118,      1,    232,    134,      0,    235
  103. 1030   DATA    123,    144,    129,    250,      0,     59,    117,     36
  104. 1040   DATA     46,    138,     38,    125,      1,    254,    196,    128
  105. 1050   DATA    252,     16,    124,      2,    180,      0,     46,    136
  106. 1060   DATA     38,    125,      1,     46,    128,     38,    124,      1
  107. 1070   DATA    240,     46,      8,     38,    124,      1,    232,     92
  108. 1080   DATA      0,    235,     81,    144,    129,    250,      0,     60
  109. 1090   DATA    117,     37,     46,    138,     38,    126,      1,    128
  110. 1100   DATA    196,     16,    128,    252,    120,    114,      2,    180
  111. 1110   DATA      0,     46,    136,     38,    126,      1,     46,    128
  112. 1120   DATA     38,    124,      1,     15,     46,      8,     38,    124
  113. 1130   DATA      1,    232,     49,      0,    235,     38,    144,     30
  114. 1140   DATA     14,     31,     46,    139,     30,    102,      1,     46
  115. 1150   DATA     59,     30,    118,      1,    125,     18,    136,     23
  116. 1160   DATA     46,    255,      6,    102,      1,     67,     46,     59
  117. 1170   DATA     30,    118,      1,    116,      3,    198,      7,     95
  118. 1180   DATA     31,    232,      9,      0,      7,     31,     94,     95
  119. 1190   DATA     90,     89,     91,     88,    207,     80,     46,    255
  120. 1200   DATA     54,    116,      1,     46,    143,      6,    114,      1
  121. 1210   DATA    141,      6,     54,      4,     46,    163,    129,      1
  122. 1220   DATA    232,    185,      0,     88,    195,     46,    139,     62
  123. 1230   DATA    118,      1,    131,    239,     40,     46,     57,     62
  124. 1240   DATA    102,      1,    125,     46,     46,    139,     30,    102
  125. 1250   DATA      1,    139,    195,     46,     43,      6,    116,      1
  126. 1260   DATA     61,     39,      0,    116,     17,    124,      5,     45
  127. 1270   DATA     40,      0,    235,    244,    198,      7,     32,     46
  128. 1280   DATA    255,      6,    102,      1,    235,    222,    198,      7
  129. 1290   DATA     32,    198,     71,      1,     95,     46,    255,      6
  130. 1300   DATA    102,      1,    195,     30,     82,     14,     31,    190
  131. 1310   DATA      2,      0,     46,    139,     22,    131,      1,    236
  132. 1320   DATA    168,      1,    117,    251,    236,    168,      1,    116
  133. 1330   DATA    251,     38,    138,     37,     71,     78,    131,    254
  134. 1340   DATA      0,    116,      4,    136,     39,    235,    232,     67
  135. 1350   DATA    136,     39,     67,     90,     31,    195,     30,     81
  136. 1360   DATA     82,     14,     31,    138,     39,    190,      2,      0
  137. 1370   DATA     46,    139,     22,    131,      1,    236,    168,      1
  138. 1380   DATA    117,    251,    236,    168,      1,    116,    251,     38
  139. 1390   DATA    136,     37,    141,     14,    252,      5,    129,    193
  140. 1400   DATA    184,     11,     46,     57,     14,    114,      1,    117
  141. 1410   DATA      5,    138,    103,      1,    235,      5,     46,    138
  142. 1420   DATA     38,    124,      1,     71,     78,    117,    214,     67
  143. 1430   DATA    141,     14,    252,      5,    129,    193,    184,     11
  144. 1440   DATA     46,     57,     14,    114,      1,    117,      1,     67
  145. 1450   DATA     90,     89,     31,    195,    187,      0,    176,    142
  146. 1460   DATA    195,     46,    139,     62,    127,      1,     46,      3
  147. 1470   DATA     62,    122,      1,     46,    139,     30,    114,      1
  148. 1480   DATA    185,     15,      0,    186,     40,      0,     46,    255
  149. 1490   DATA     22,    129,      1,     74,    117,    248,     46,      3
  150. 1500   DATA     62,    122,      1,    226,    238,    195,      6,     30
  151. 1510   DATA     85,     80,     83,     81,    128,    252,     10,    116
  152. 1520   DATA      3,    233,     53,      1,    139,    218,    138,     15
  153. 1530   DATA     30,     14,     31,    143,      6,     50,      1,     82
  154. 1540   DATA    143,      6,     52,      1,    187,    128,      0,    136
  155. 1550   DATA     15,    139,    236,    128,     62,     47,      1,      1
  156. 1560   DATA    117,     60,    139,     94,      4,    137,     30,     48
  157. 1570   DATA      1,    198,      6,     47,      1,      0,     80,     81
  158. 1580   DATA     87,      6,     14,      7,    141,     62,    252,      5
  159. 1590   DATA    185,    184,     11,    176,     32,    243,    170,    141
  160. 1600   DATA     62,    252,      5,    176,     49,    185,      5,      0
  161. 1610   DATA    198,      5,     95,    136,    133,     87,      2,    254
  162. 1620   DATA    192,    129,    199,     88,      2,    226,    241,      7
  163. 1630   DATA     95,     89,     88,    235,     13,    144,    139,     94
  164. 1640   DATA      4,     59,     30,     48,      1,    116,      3,    233
  165. 1650   DATA    207,      0,    186,    128,      0,    180,     10,    156
  166. 1660   DATA    255,     30,     43,      1,    156,    252,     14,      7
  167. 1670   DATA    141,     62,     54,      1,    139,    239,    184,      3
  168. 1680   DATA      0,    190,    130,      0,    187,    129,      0,     51
  169. 1690   DATA    201,    138,     15,    128,    249,      0,    126,    120
  170. 1700   DATA    128,    249,      4,    127,    115,    243,    166,    117
  171. 1710   DATA      9,    227,      2,    235,      5,    128,     61,     13
  172. 1720   DATA    116,     10,    131,    197,      5,    139,    253,     72
  173. 1730   DATA    117,    215,    235,     92,    180,      9,    141,     22
  174. 1740   DATA     68,      1,    156,    255,     30,     43,      1,    141
  175. 1750   DATA     46,     68,      1,    180,     60,    141,     22,     94
  176. 1760   DATA      1,    185,      0,      0,    156,    255,     30,     43
  177. 1770   DATA      1,    185,     75,      0,    139,    216,    141,     22
  178. 1780   DATA    252,      5,    180,     64,     81,    185,     40,      0
  179. 1790   DATA    156,    255,     30,     43,      1,     82,    141,     22
  180. 1800   DATA     68,      1,    185,      2,      0,    180,     64,    156
  181. 1810   DATA    255,     30,     43,      1,     90,    131,    194,     40
  182. 1820   DATA     89,    226,    223,    180,     62,    156,    255,     30
  183. 1830   DATA     43,      1,    180,      9,    141,     22,     71,      1
  184. 1840   DATA    156,    255,     30,     43,      1,    157,    235,      7
  185. 1850   DATA    189,    125,      0,    157,    131,    197,      5,    255
  186. 1860   DATA     54,     50,      1,      7,    139,     62,     52,      1
  187. 1870   DATA    131,    199,      2,    139,    245,    176,      0,    164
  188. 1880   DATA    128,    124,    255,     13,    116,      4,    254,    192
  189. 1890   DATA    235,    245,    139,     62,     52,      1,     71,     38
  190. 1900   DATA    136,      5,     89,     91,     88,     93,     31,      7
  191. 1910   DATA    207,     89,     91,     88,     93,     31,      7,     46
  192. 1920   DATA    255,     46,     43,      1,    187,     64,      0,    142
  193. 1930   DATA    219,    141,     22,    252,      5,     46,    137,     22
  194. 1940   DATA    116,      1,     46,    137,     22,    102,      1,     46
  195. 1950   DATA    137,     22,    114,      1,    139,    202,    129,    193
  196. 1960   DATA     87,      2,     46,    137,     14,    118,      1,    185
  197. 1970   DATA      5,      0,    187,      0,      0,     46,    137,    151
  198. 1980   DATA    104,      1,    129,    194,     88,      2,    131,    195
  199. 1990   DATA      2,    226,    242,    184,      0,      0,    142,    216
  200. 2000   DATA    161,     36,      0,     46,    163,    133,      1,    161
  201. 2010   DATA     38,      0,     46,    163,    135,      1,    199,      6
  202. 2020   DATA     36,      0,    137,      1,    140,     14,     38,      0
  203. 2030   DATA    161,    132,      0,     46,    163,     43,      1,    161
  204. 2040   DATA    134,      0,     46,    163,     45,      1,    199,      6
  205. 2050   DATA    132,      0,    174,      4,    140,     14,    134,      0
  206. 2060   DATA    180,     15,    205,     16,    128,    236,     40,    208
  207. 2070   DATA    228,     46,    136,     38,    122,      1,     46,    199
  208. 2080   DATA      6,    131,      1,    186,      3,    168,      4,    117
  209. 2090   DATA     14,     46,    199,      6,    127,      1,      0,    128
  210. 2100   DATA     46,    199,      6,    131,      1,    218,      3,    186
  211. 2110   DATA    252,      5,    129,    194,    104,     16,    205,     39
  212.